home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Programming / AmigaE / Src / Tools / EasyGUI / Examples / ticker_test.e < prev    next >
Encoding:
Text File  |  1997-02-13  |  330 b   |  20 lines
  1. MODULE 'tools/easygui', 'tools/exceptions',
  2.        'plugins/ticker'
  3.  
  4. PROC main() HANDLE
  5.   DEF t=NIL:PTR TO ticker
  6.   NEW t
  7.   easyguiA('Ticker!',
  8.     [ROWS,
  9.       [TEXT,'Ticker test:',NIL,TRUE,10],
  10.       [PLUGIN,{tickaction},t]
  11.     ])
  12. EXCEPT DO
  13.   END t
  14.   report_exception()
  15. ENDPROC
  16.  
  17. PROC tickaction(i,t)
  18.   WriteF('Tick!\n')
  19. ENDPROC
  20.